home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / qscripts.zip / AUTO.SCR next >
Text File  |  1992-04-16  |  3KB  |  95 lines
  1. ;
  2. ;AUTO.SCR:
  3. ;This script will automate your mail run in conjunction with a linked
  4. ;script for each BBS whose number appears in the list below.  You will need
  5. ;to edit this file to suit your particular BBS needs.
  6. ;
  7. string DialCommand                                ; command to pass to Dial
  8. string brd1 brd2 brd3 brd4 brd5                   ; this example uses 5 boards
  9. string entry1 entry2 entry3 entry4 entry5         ; number in the FON file
  10. assign brd1 "NO"                                  ; has the bbs been serviced?
  11. assign brd2 "NO"
  12. assign brd3 "NO"
  13. assign brd4 "NO"
  14. assign brd5 "NO"
  15. assign entry1 "xxx-xxxx"       ; BBS #1
  16. assign entry2 "xxx-xxxx"       ; BBS #2
  17. assign entry3 "xxx-xxxx"       ; BBS #3
  18. assign entry4 "xxx-xxxx"       ; BBS #4
  19. assign entry5 "xxx-xxxx"       ; BBS #5
  20. ;You can add more boards by following the examples above.  Simply continue to
  21. ;add brd# and entry# strings.
  22.  
  23. TopOfLoop:
  24.    Assign DialCommand " "       ; reset the dial command
  25.  
  26.    Try5:
  27.    If "$brd5" <> "NO" Try4
  28.       Assign DialCommand "t$entry5 $DialCommand"
  29.  
  30.    Try4:
  31.    If "$brd4" <> "NO" Try3
  32.       Assign DialCommand "t$entry4 $DialCommand"
  33.  
  34.    Try3:
  35.    If "$brd3" <> "NO" Try2
  36.       Assign DialCommand "t$entry3 $DialCommand"
  37.  
  38.    Try2:
  39.    If "$brd2" <> "NO" Try1
  40.       Assign DialCommand "t$entry2 $DialCommand"
  41.  
  42.    Try1:
  43.    If "$brd1" <> "NO" TestCommand
  44.       Assign DialCommand "t$entry1 $DialCommand"
  45.  
  46.  
  47.    TestCommand:
  48.    If "$DialCommand" = " " AllDone
  49.  
  50.    Dial "$DialCommand"             ; tag the entries to dial
  51.    If "$NUMBER" = "$entry1" Mark1
  52.    If "$NUMBER" = "$entry2" Mark2
  53.    If "$NUMBER" = "$entry3" Mark3
  54.    If "$NUMBER" = "$entry4" Mark4
  55.    If "$NUMBER" = "$entry5" Mark5
  56.  
  57.    Goto BigTimeError
  58.  
  59.    Mark1:
  60.      Assign brd1 "YES"
  61.      Goto DoScript
  62.  
  63.    Mark2:
  64.      Assign brd2 "YES"
  65.      Goto DoScript
  66.  
  67.    Mark3:
  68.      Assign brd3 "YES"
  69.      Goto DoScript
  70.  
  71.    Mark4:
  72.      Assign brd4 "YES"
  73.      Goto DoScript
  74.  
  75.    Mark5:
  76.      Assign brd5 "YES"
  77.      Goto DoScript
  78.  
  79.    BigTimeError:
  80.      Note Script aborted, or connected to an entry that was in error
  81.      Exit
  82.  
  83.    DoScript:
  84.    Script $Script   ; execute the script attached to the connected #
  85.                     ; Make SURE your scripts attached to the entries
  86.                     ; end with the command RETURN instead of EXIT!
  87.  
  88.    Pause 3000       ; let the comm buffer drain
  89.  
  90.    Goto TopOfLoop   ; Done with this call, go back and start dialing!
  91.  
  92. AllDone:
  93. Note All numbers have been called!
  94. Exit
  95.